home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / TRACE.for < prev    next >
Text File  |  1991-04-13  |  369b  |  16 lines
  1.         SUBROUTINE TRACE(X,Y,NPTS)
  2.     IMPLICIT NONE
  3.     INTEGER NPTS,I
  4. C
  5. C       THIS SUBROUTINE IS USED TO PLOT DATA ON THE SCREEN AS
  6. C       A CONTINOUS LINE.
  7. C
  8.         REAL*4 X(2), Y(2), VX, VY
  9.         CALL SCALE(X(1),Y(1),VX,VY)
  10.         CALL GSMOVE(VX,VY)
  11.         DO 100 I=2,NPTS
  12.         CALL SCALE(X(I),Y(I),VX,VY)
  13. 100     CALL GSDRAW(VX,VY)
  14.         RETURN
  15.         END
  16.